﻿
Partial Class Pages_Admin_Updatepost
    Inherits System.Web.UI.Page

    Dim f As New Forum



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim id As Integer = Request.QueryString("id")

        f.Confirm = True

        f.NewsID = id

        Dim nd As New ForumDAO()
        nd.UpdateMessage(f)


        Response.Redirect("Forum.aspx")




    End Sub
End Class
